home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh40.d64 / hauptstadt quiz (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 10 LETN=28:LETW=0:LETR=0:FORI=1TON:READX$,Y$
  2. 20 PRINT"[147]HAUPTSTADT QUIZ 1988 BY FRANK FENSKE":PRINT:PRINT
  3. 30 PRINT"WIE HEISST DIE HAUPTSTADT VON/DER":PRINT:PRINT" ";X$;"?":PRINT
  4. 40 INPUT Z$ :PRINT
  5. 50 IFY$=Z$THEN LET R=R+1:PRINT"RICHTIG ";Y$;"":FORF=0TO500:NEXTF:PRINT:NEXTI
  6. 60 IFY$<>Z$THEN LET W=W+1:PRINT"FALSCH ";Y$;"":FORF=0TO500:NEXTF:PRINT:NEXTI
  7. 70 PRINT"SIE WURDEN ";N;"MAL GEFRAGT":PRINT"SIE GABEN ";R;" RICHTIGE ANTWORTEN"
  8. 80 PRINT"SIE GABEN ";W;" FALSCHE ANTWORTEN"
  9. 90 PRINT"DAS WARS LEUTE   RUN ODER RESET"
  10. 100 DATA"AUSTRALIEN", "CANBERRA":DATA"U.S.A.","WASHINGTON"
  11. 110 DATA"JAPAN","TOKYO":DATA"TUERKEI","ANKARA":DATA"SPANIEN","MADRID"
  12. 120 DATA"DEUTSCHLAND","BONN":DATA"CHINA","PEKING":DATA"AEGYPTEN","KAIRO"
  13. 130 DATA"U.D.S.S.R","MOSKAU":DATA"OESTERREICH","WIEN":DATA"ENGLAND","LONDON"
  14. 140 DATA"IRAN","TEHERAN":DATA"SCHWEDEN","STOCKHOLM":DATA"DAENEMARK","KOPENHAGEN"
  15. 150 DATA"ISRAEL","JERUSALEM":DATA"KANADA","OTTAWA":DATA"LICHTENSTEIN","VADUZ"
  16. 160 DATA"THAILAND","BANGKOK":DATA"UNGARN","BUDAPEST":DATA"LIBANON","BEIRUT"
  17. 170 DATA"ALGERIEN","ALGIER":DATA"CHILE","SANTIAGO":DATA"CUBA","HAVANNA"
  18. 180 DATA"GRIECHENLAND","ATHEN":DATA"IRLAND","DUBLIN":DATA"ITALIEN","ROM"
  19. 190 DATA"WER SCHRIEB DIESES PROGRAMM","FRANK FENSKE"
  20. 200 DATA"WANN WURDE DIESES PROGRAMM GESCHRIEBEN","1988"
  21.